/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / System7 tools / Frontier / find alias.cpt / find alias.rsrc / data_6255_root.["find alias"]

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 73 63 70 74 00 01 04 64 | 00 02 00 00 00 3c 00 00 |scpt...d|.....<..|
|00000010| 01 6e 00 09 02 00 00 0f | 06 47 65 6e 65 76 61 00 |.n......|.Geneva.|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 0c 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 06 c0 | 00 00 a4 d0 4c b7 a4 d5 |........|....L...|
|00000050| 51 84 00 00 00 02 00 00 | 00 2a 00 03 01 82 02 14 |Q.......|.*......|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 6f 6e 20 46 69 6e 64 41 | 6c 69 61 73 20 28 61 64 |on FindA|lias (ad|
|00000090| 72 70 61 74 68 29 20 0d | 09 61 64 72 70 61 74 68 |rpath) .|.adrpath|
|000000a0| 5e 20 3d 20 66 69 6c 65 | 2e 66 6f 6c 6c 6f 77 61 |^ = file|.followa|
|000000b0| 6c 69 61 73 20 28 61 64 | 72 70 61 74 68 5e 29 20 |lias (ad|rpath^) |
|000000c0| 0d 09 64 69 61 6c 6f 67 | 2e 61 6c 65 72 74 28 61 |..dialog|.alert(a|
|000000d0| 64 72 70 61 74 68 5e 29 | 20 c7 73 68 6f 77 73 20 |drpath^)| .shows |
|000000e0| 74 68 65 20 70 61 74 68 | 20 69 6e 20 61 20 64 69 |the path| in a di|
|000000f0| 61 6c 6f 67 20 62 6f 78 | 0d 0d 69 66 20 21 64 69 |alog box|..if !di|
|00000100| 61 6c 6f 67 2e 61 73 6b | 20 28 22 50 61 74 68 20 |alog.ask| ("Path |
|00000110| 54 6f 20 41 6c 69 61 73 | 3f 20 28 65 78 2d 2d 20 |To Alias|? (ex-- |
|00000120| 4d 61 63 69 6e 74 6f 73 | 68 20 48 44 3a 46 72 6f |Macintos|h HD:Fro|
|00000130| 6e 74 69 65 72 29 22 2c | 20 40 74 65 6d 70 70 61 |ntier)",| @temppa|
|00000140| 74 68 29 20 20 c7 70 75 | 74 73 20 75 70 20 64 69 |th)  .pu|ts up di|
|00000150| 61 6c 6f 67 20 61 73 6b | 69 6e 67 20 79 6f 75 20 |alog ask|ing you |
|00000160| 74 6f 20 74 79 70 65 20 | 74 68 65 20 70 61 74 68 |to type |the path|
|00000170| 20 74 6f 20 79 6f 75 72 | 20 61 6c 69 61 73 20 66 | to your| alias f|
|00000180| 69 6c 65 0d 09 72 65 74 | 75 72 6e 20 28 66 61 6c |ile..ret|urn (fal|
|00000190| 73 65 29 20 0d 0d 46 69 | 6e 64 41 6c 69 61 73 20 |se) ..Fi|ndAlias |
|000001a0| 28 40 74 65 6d 70 70 61 | 74 68 29 20 c7 74 65 6d |(@temppa|th) .tem|
|000001b0| 70 70 61 74 68 20 69 73 | 20 6c 6f 63 61 6c 20 76 |ppath is| local v|
|000001c0| 61 72 2e 20 77 68 65 72 | 65 20 61 6c 69 61 73 20 |ar. wher|e alias |
|000001d0| 70 61 74 68 20 69 73 20 | 73 74 6f 72 65 64 0d 0d |path is |stored..|
|000001e0| 72 65 74 75 72 6e 20 28 | 74 72 75 65 29 0d 80 00 |return (|true)...|
|000001f0| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00000200| 80 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|00000210| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |........|........|
|00000220| 00 00 00 00 80 00 00 00 | 00 00                   |........|..      |
+--------+-------------------------+-------------------------+--------+--------+